CPASCAL PROGRAM TO MAKE CONCEPT LOOK LIKE A TERMINAL 
IT READS FROM THE KEYBOARD (USER INPUT) 

AND WRITES TO THE DATAC0M2 PORT 
IT READS FROM THE DATAGOM2 PORT 

AND WRITES TO THE CONSOLE 


PROGRAM TTY; 


CONST 

KBRD = 355 CKEYBOARD 

UNIT > 


DCOM = 32,” CDATACOMM 

UNIT } 


CONS = 1; {CONSOLE 

CRT 

VAR 

CTRLC :CHAR; { ETX } 

CH:PACKED ARRAYCO..13 OF i 

CHAR n 

WRIT} 

baudrate:integer; 



{CHARACTER THAT IS EITHER READ OR 


BEGIN 

wr iteln; 

write! ’ Enter Baud F;ate Code: ’ ) ; read In (baudrate) ; 
unitstatus(dcora,baudrate, 2) ; 


CTRLC := CHR(3) ; 


REPEAT 

IF UNITBUSY(DCOM) 

THEM BEGIN 

UNITREAD(DCOM,CH,i); {READ A CHAR} 

UNITWRITE(CONS,CH,1)5 {WRITE TO SCREEN} 

END; 

IF UNITBUSY(KBRD) 

THEN BEGIN 

UNITREAD(KBRD,CH,I); 

UNITWRITE(DCOM,CH, 1) ; 

END; 

UNTIL OHIOI = CTRLC; 

END. 


f 








page 

? EQUATES 

FOR ALL 

DATACOM DRIVER SOFTWARE 



'• BIT NUMBER DEFINITIONS 



BITDO 

EQU 

0 

; BIT 

0 

BITDi 

EQU 

1 

; BIT 

1 

BITD2 

EQU 

—> 

; BIT 

j:.. 

BITD3 

EQU 


; bit 

3 

BITD4 

EQU 

4 

; BIT 

4 

BITD5 

EQU 

5 

; BIT 

5 

BITD6 

EQU 

6 

; BIT 

6 

BITD7 

EQU 

7 

; BIT 

7 

? Buffer c 

:ontrol 

table INTERNAL Flag bit 

definitions 

**L 


; Low order byte 


SAVSR 

ENQFLG 


EQU 

EQU 


BITDO 

BITD4 


;SET=SAVED ENTRY 3R 
;SENT ENQ WAITING FOR ACK 


; Internal Flag masks 
!» 

BUFFLGM EQU 1 

|l 

; Buffer Control Table PROTOCOL 


;CLEAR ALL BUT SAVSR 

flag bit definitions byte**** BF__PROF 


c 


LINE 

EQU 

BITDO 

XONXOFF 

EQU 

BITDI 

ENQACK 

EQU 

BITD2 

"TSLIN 

EQU 

BITD3 

DSRLIN 

EQU 

BITD4 

DCDLIN 

EQU 

BITD5 

INVBUSY 

EQU 

BITD6 

Y 

DATACOM 

EQU 

BITD7 

5 

; BUFFER CONTROL TABLE PROTOCOL 

PRQT_P2 

EQU 

BITDO 

OL EXISTS 



RFLOW ETC 



M0DM_P2 

EQU 

BITD.1 

I STS 



NM0D_P2 

EQU 

BITD2 

(PROBABLY 

OF LITTLE 

USE) 

FULL_P2 

EQU 

BITD3 

LT) 



* 

\ WRITE BUFFER 

flag word b 

s 

ATHI_W1 

EQU 

BITDO 

'ATLO^Wi 

EQU 

BITDI 

B6HI~W1 

EQU 

BITD2 

L.TLQ _W1 

EQU 

BITD3 

OUTE_Wi 

EQU 

BITD4 

NABLED 



INPE_Wi 

EQU 

BITD5 

MARL ED 




5LINE TYPE HANDSHAKE 
jXON/XOFF HANDSHAKE 
j ENQ/ACK HANDSHAKE 
;LINE IS CTS 
;LINE IS DSR 

;line is dcd 

;i=LINE IS INVERTED(0) WHEN BUS 


;DATACOM 1 WHEN SET ELSE DCO 
FLAG BIT DEFINITIONS ***HI BYTE***8F_PR0F 

?IF SET THEN SOME TYPE OF PROTOC 
5 ELSE NO PROTOCOLS —BUFFERS OVE 
;IF SET THEN A MODEM PROTOCOL EX 
;IF SET THEN NULL MODEM PROTOCOL 
5 IF SET THEN FULL DUPLEX (DERFAL 
5 OTHERWISE HALF DUPLEX 


FLAG i —>>lo byte 


5 AT HI WATER MARK 
;AT LOW WATER MARK 
;ABOVE HI WATER MARK 
;BELOW LOW WATER MARK 
5 IF 0 DATA FROM BUFFER TO PORT f 


5 IF 0 DATA FROM USER TO BUFFER ? 







INPC_.W1 
ING INPE 


EQU 


BITD7 


; OTHERWISE CONTROLLED INTERNALLY 
;IF SET(1) THEN USER IS CONTROL! 


WRITE BUFFER flag word bit definitions 


FULL 142 

EQU 

BITDO 

EMPTJ42 

EQU 

BITD1 

LOST W2 

NS BUFFER) 

EQU 

BITD2 

AULF_W2 

F AFTER CR 

EQU 

BITD3 

CRTFJ42 

WAS CR 

EQU 

BITD4 


READ BUFFER flag word bit definitions 


ATHI_R1 

EQU 

BI TDO 

ATL0__R1 

EQU 

BITD1 

BGHI__R1 

EQU 

BITD2 

LTL0._R1 

EQU 

BITD3 

outeIri 

NABLED 

EQU 

BITD4 

INPE_R1 

NABLED 

EQU 

BITD5 

0UTC_R1 

ING OUTE 

EQU 

BITD6 

INPC...R1 

ING INF'E 

EQU 

BITD7 


READ BUFFER flag word bit definitions 


FULL_R2 

EQU 

BITDO 

EMF‘T_R2 

EQU 

BITD1 

LOST_R2 

EQU 

BITD2 

NS BUFFER) 




; Table flag’s masks 


DCMFLGii EQU $80 

5 68000 Interrupt Auto Vector Addresses 

VEC1 EQU $64 

L 


VEC2 

EQU 

$68 

VEC4 

EQU 

$70 


FLAG 2 -> >1o byte 

;IF SET (1) THEN BUFFER IS FULL 
5 IF SET (!) THEN BUFFER IS EMPTY 
5 DATA LOST ON INPUT (USER OVERRl 

; IF SET THEN AUTOMATIC ADD IF I. 

;IF SET THEN PREVIOUS CHARACTER 


FLAG 1 — > >L0 BYTE 


;AT HI WATER MARK 
5 AT LOW WATER MARK 
;ABOVE HI WATER MARK 
;BELOW LOW WATER MARK 
;IF 0 DATA FROM PORT TO BUFFER E 


;IF 0 DATA FROM BUFFER TO USER E 
5 IF SET(1) THEN USER IS CONTROLL 


5 OTHERWISE CONTROLLED INTERNALLY 
;IF SET(1) THEN USER IS CONTROLL 


; IF SET (1) THEN BUFFER IS FULL 
; IF SET (1) THEN BUFFER IS EMPT' 
;DATA LOST ON INPUT (PORT OVERRl 


;LEAVE DATACOM UNTOUCHED 


;AUTO VECTOR #1-DATA COM CONTRI 


jThis is the 
; protocols 
5 AUTO VECTOR 
jAUTO VECTOR 


VIA used in line 

#2-DC 1 
#4~DC 0 


;***#***-********************#***********#*************************#*********** 



j Unit I/O Command codes —found IN D4.W 


INSTCMD 

EQU 

o 


Install the unit 

READCMD 

EQU 

1 


read command 

WRCMD 

EQU 



write command 

CLRCMD 

EQU 



CLEAR THE UNIT 

BUSYCMD 

EQU 

4 


busy command 

STSCMD 

DS IN D2.W 

EQU 

5 

5 

STATUS COMMAND -ACTUAL COMMA 

UMMCMD 

EQU 

jL 


{ j r'*t m t i n F . «"-k ,r~l 



D2__FREEW 

EGUJ 

1 

dzIfreer 

EQ(J 

2 

D2.... BAUDS 

EQU 

T 

D2...PARTY 

EQU 

4 

D2_P0RT 

EQU 

5 

r02_CHARS 

EQU 

6 

[ J2__HANDS 

EQU 

*7 

D2_WRTHI 

EQU 

8 

OF CHARACTERS LEFT 

FREE) 

D2_WRTL0 

EQU 

9 

ARS LFT IN 

BUFFER) 


D2_REAHI 

EQU 

10 

CHARS LEFT 

FREE) 


D2_REAL0 

EQU 

1 1 

CHARACTERS 

LFT IN 

BFR) 

D2_RESTS 

EQU 

12 

D2_WRST3 

EQU 

13 

D2_TBLALL 

EQU 

14 

READ, AND 

WRITE 


D2_BFCTRL 

EQU 

15 

TABLE 

D2_BFWRT 

EQU 

16 

ABLE 

D2_BFRED 

EQU 

17 

BLE 

D2_0UTRD 

EQU 

CO 

EVICE DISABLE) 


D2__INBRD 

EQU 

19 

FFER DISABLE) 


D2_0UTWT 

EQU 

20 

(DEVICE DI 

SABLE) 


r D2_INBWT 

EQU 

21 

L BUFFER DISABLE) 


D2__WBCHR 

EQU 

77 

IN WRITE 

BUFFER 


D2 RBCHR 

EQU 

23 


IN READ BUFFER 


;RETURN WRITE BUFFER FREE SPACE 
JRETURN READ BUFFER FREE SPACE 
5 SET READ/WRITE BAUD RATE 
;SET PARITY 

;SET DATA COM PORT <0 OR 1) 

;SET CHARACXTER SIZE 

SSET HANDSHAKE METHOD 

?SET WRITE HI WATER MARK(NUMBER 

jSET WRITE LO WATER MARK(NMBR C1 

;SET READ HI WATER MARK(NMBR OF 

;SET READ LO WATER MARK(NMBR OF 

$ RETURN READ STATUS 

;RETURN WRITE STATUS 

;RETURN TABLE STATE OF BUFR CTL, 

;RETURN STATE OF BUFFER CONTROL 

;RETURN STATE OF WRITE CONTROL I 

jRETURN STATE OF READ CONTROL Tf 

5 USER DISABLE OF OUTBOARD READ(E 

5 USER DISABLE OF INBOARD READ(BL 

; USER DISABLE OF OUTBOARD WRITE 

; USER DISABLE OF INBOARD WRITE < 

;RETURN THE NUMBER OF CHARACTERS 

;RETURN THE NUMBER OF CHARACTERS 


THE ABOVE IS WILD AND WOOLY AND MAY BE OF LITTLE US TO A SIMPLE 
HIGHER LEVEL PROTOCOL— HOWEVER THE HIGHER YOU GET THE MORE USE 
SOME OF THESE REPORTING FUNCTIONS MAY BE 




3 


? SSuou s 

tatus Register 

values 



IJPRMSK 

EQU 

$A000 

«• 

KEEPS ALL STATES AND TRACE B 

TS AS IS 





STATEMSK 

EQU 

$2000 

• 

ANDS OFF STATE BIT 

TRACEMSK 

EQU 

$8000 

« 

ANMDS OFF TRACE BIT 

INTMSK 

EQU 

$0700 

m 

ANDS OFF ALL INT LEVELS 

I NT 4 

EQU 

$400 

tt 

INTERRUPT LEVEL 4 AND LOWER 

I NT2 

EQU 

$200 


ETC LEVEL2 

INTI 

EQU 

$ 100 

m 

ETC LEVEL 1 

DISINT4 

EQU 

$2400 

« 

Disable all DataCom 0 (prior 

t.y 4) and 

below device 

i nts 



DISINT2 

EQU 

$2200 

it 

DISABLE DATACOM 1 (priority 


)and below ints 




$2100 


3 


Disable DataCom-Control int 







S_F'ARI 

EQU 

INS 


S_FRAME 

EQU 

ARING 


S_OVRN 

EQU 

S_RCVF 

EQU 

LEAPED BY 

READ B( 

1„WRTE 

EQU 

S_DCD 

EQU 

D LOW 


S_DSR 

EQU 

LOW 


S_IRQ 

EQU 

•I 

5 

; UART 

n 

COMMAND 

5 

CMJDISP 

EQU 

CM_OPBT 

EQU 

CM_EPBT 

EQU 

VE 


CM_MF‘BD 

EQU 

TY CK DISABLED 

CM_SPBD 

EQU 

TY CK DISABLED 


CM_ECHO EQU 

CM_DTRL EQU 

AR=LOW 

C CM _IRQD EQU 

OTE CORVUS CUTEY 


BITDO 

BITDi 

BITD2 
BI I D3 

BITD4 
BITD5 

BITD6 

BITD7 

REGISTER 

NOTE:cannot 

0 

$20 
$60 

$A0 

$E0 

$10 
$1 

$2 


IT 3, NOT BIT 0 
ITERATURE 


;PARITY ERROR IF SET—SELF CLEAR 

5 FRAMING ERROR IF SET —SELF CLE 

5 DATA OVERRUN IF SET 
;RECEIVE REGISTER FULL IF SET -C 

5 WRITE REGISTER EMPTY IF SET 
;DATA CARRY DETECT IF LO -WIRE 

;DATA SET READY IF LOW - WIRED 

INTERRUPT REQUEST IF SET 

S_RCVF EQUIVALENT TO RCVBF 
S_WRTE EQUIVALENT TO XMITBE 

or members of same section together 

;DISABLE PARITY 
5 ODD PARITY BOTH XMIT AND RCV 
5 EVEN PARITY BOTH XMIT AND RECEJ 

;MARK PARITY BIT UPON XMIT -PAR] 

;SPACE PARITY BIT ON XMIT - PAR] 

5 IF SET-ECHO MODE FOR RECEIVER 
;ENABLE RCVR/XMITRR IF SET DTR . 

;DISABLE INTERRUPTS IF SET - 

,* THIS IS ENABLED FROM STATUS 
; AS IS INDICATED IN SYNERTEK 







CM_TELO 

EQU 

*4 

; XMIT 

ENABLED RTS BAR L.0 

CM_TDLQ 

EQU 

$8 

; XMIT 

DISABLED RTS BAR LO 

CM TDBRK 

EQU 

$C 

; XMIT 

DISABLED —XMIT BREA! 


TURNOFF 

EQU 

XMITENB 

EQU 

XMITDIS 

EQU 

CMDRC 

EQU 

NO PARITY 


CMDRWC 

EQU 

UF'TS ENABLED ALSO 


SOME USEFUL MACRO COMMANDS 

FOR THE COMMAND REGISTER 

CM_IRQD 

CM__TELO 

CM__TDLO 

CM_DTRL+CM_TDLO 5 NO XMIT INT, RCV INT,ENAB DTE, 

CM_DTRL+CM_TELO 5 SAME AS CMDRC XCEPT XMIT INTERF 


CLRD3D2 


EQU 


$F3 


;CLEAR BITS D3 & D2 A MASK 


9 

; UART CONTROL REGISTER EQUATES 


9 

, NOTE: Baud is lower 4 bits of control word—see BAUDCNV table below 


CR_STF'B 

EQU 

$80 

BITS IF NO 

PARITY 


IT IF 8 BIT 

CHAR + 

PARITY 

BITS IF 5BIT WORD 

NO PARITY 

9 

r OR WRDL3 

EQU 

0 

l CRWRDL7 

EQU 

$20 

CR_WRDL6 

EQU 

$40 

CR_WRDL5 

• _ _ _ . 

EQU 

$60 

9 ..... • - 

CR_EXTCLK 

EQU 

0 

CR_BDCLK 

EQU 

$10 


;IF 0 THEN = 1 STOP BIT 
; IF SET AS INDICATED * 2 STOP 

j =1 STOP E 

,* *1.5 STOP 


;S BITS WORD LENGTH 
57 BIT WORD LENGTH 
; & ETC 
; 5 ETC. 

5 EXTERNAL RECEIVE CLOCK 
; BAUD RATE GEN FOR CLOCK 


9 

j UART CONTROL REGISTER CONSTANTS FOR UART SETUP 

9 

CTLRC EQU CR_BDCLK+CR_WRDL8 ; 1 STOP BIT„8BIT WORD LENGTH ,Bf 

UD RATE GENERATOR 


; ASCII Control characters 


9 


XON 

EQU 

$11 

XOFF 

EQU 

$13 

ENQ 

EQU 

$05 

ACK 

EQU 

$06 

NULL 

EQU 

$00 

CR 

EQU 

$0D 

LF 

EQU 

$0A 

9 

; Maximum 

Parameter 

values 

’ 9 

.iAXBAUD 

EQU 

6 

MAXPRTY 

EQU 

4 

MAXWRDS 

EQU 

1 

MAXDTCM 

EQU 

1 

MAXHNDS 

EQU 

"7 

f 

MAXWHI 

EQU 

133 


for printer control 

SCAN XMIT <CTL-Q) 

5 STOP XMIT (CTL-S) 

5 READY FOR MORE? (CTL-E) 
;YES, I’M READY (CTL-F) 

;NULL CHARACTER-DO NOTHING 
5 CARRIAGE RETURN 
;LINE FEED 

for Unitstatus Set table entry functions 

5 FOR SET BAUD RATE 
;FOR SET PARITY 
5 FOR SET WORD SIZE 
5 FOR SET DATACOM 
5 FOR SET HANDSHAKE TYPE 
q HI WATER WRTTF MAX tt CHARE 







MAXRLO 


EQU 


80 


; LO WATER READ #CHARS MAX 


; error code 

s CIQRESIJLT) 



.H 

I IMVCMD 
st) 

EQU 

IOEioreq 

5invalid 

cmd-(invalid I/O reque 

JiMVTBLID 

EQU 

IQEtblid 

5 i nval i d 

table id 

NVPRM 

EQU 

IQEuiopm 

; invalid 

parameter 

1 NVFNC 

EQU 

IGEtnccd 

;invalid 

fund .i on code 

; lii seel 1 aneous 

definitions 



5 

TRUE 

EQU 

i 

; Pascal 

true boolean value 

ON 

rc 

EQU 

1 

5 LISTING 

CONTROL - START LISTIN 

o 

OFF 

EQU 

0 

;LISTING 

CONTROL - STOP LISTING 

TBLSTATE 

EQU 


521 POSSIBLE STATUS INQUIRIES 

HILOMSK 

EQU 

*F0 

5 MASK OFF WATER MARKS -THRO THE 

M AWAY 






t 


( 
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^ ; File: os,gbl- asm«text 

; Date: 20 --Aug-82 

y 

; Corvus CONCEPT operating system data structure equates 
3 

5 

5 Additional Corvus CONCEPT I/O result codes 


IOEioreq 

equ 

3 

y 

■ 

Invalid I/O request 

IOEnotrn 

equ 

21 

y 

a 

y 

Transporter not ready 

IQEtimot 

equ 


y 

Timed out waiting for Omni net event 

lOEnobut 

equ 

-tf 

y 

Read without a valid write buffer 

IOEwndfn 

equ 

32 

y 

y 

Invalid window function 

IOEwndbe 

equ 

33 

y 

Window create boundary 

IOEwndcs 

equ 

34 

« 

y 

Invalid character set 

IOEwnddc 

equ 

35 

• 

y 

Delete current window 

IOEwndds 

equ 

36 

« 

y 

Delete system window 

IOEwndiw 

equ 

37 

y 

Inactive window 

lOEwndwr 

equ 

38 

• 

y 

Invalid window record 

IOEwndwn 

equ 

39 

y 

M 

Invalid system window number 

TOEnodsp 

equ 

40 

y 

y 

Display driver not available 

i'GEnokyb 

equ 

41 

y 

Keyboard driver not available 

IOEnotim 

equ 

42 

y 

Timer driver not available 

lOEnoomn 

equ 

43 

y 

OMNINET driver not available 

lOEnoprt 

equ 

44 

y 

Printer driver not available 

lOEn-f drv 

equ 

45 

y 

No floppy drive at slot 

IOEtblid 

equ 

50 

y 

y 

Invalid table entry ID 

IOEtblf1 

equ 

51 

y 

Table full 

lOEtbliu 

equ 

52 

y 

Table entry in use 

IQEkybte 

equ 

53 

y 

Keyboard transmission error 

lOEuiopm 

equ 

54 

j* 

Invalid unit 1/0 parameter 

IQEprmln 

equ 

55 

* 

y 

Invalid parameter block length 

lOE-f need 

equ 

56 

5 

Invalid function code 

IQEclkm-f 

equ 

57 

m 

y 

Clock (hardware) malfunction 


; System Common Pointer 


pSysCom equ $0180 
SysKybdFlg equ $0184 
SysByteS'cn equ $0186 


ypointer to address of SYSCOM 

5 keyboard control flags 

jidispl ay driver - bytes per scan 


1 i ne 


System Common Equates 


SCiorslt 

equ 

0 

; word 

SCprocno 

equ 


? word 

SCfreehp 

equ 

4 

5 1 i nt 

SCj tab1e 

equ 

8 

; 1 i nt 

SCsysout 

equ 

12 

5 lint 

SCsysi n 

equ 

16 

; lint 


1/0 result 

current process number 
free heap pointer 
jump table pointer 
default output file pointer 
default input file pointer 



SCutable 

equ 

28 

; 1 i nt 

- 

user table pointer 

SCtoday 

equ 


{ word 

- 

system date 

SCcodejt 

equ 

34 

{ 1 i n t 

— 

code jump table pointer 

SCnxtpro 

e qu 

38 

{ word 

— 

next process number- 

SCnumpro 

equ 

40 

5 word 

- 

number of processes 

SCprotbl 

equ 

42 

{ 1 i nt 

— 

process table pointer- 

SCb'ootnm 

equ 

46 

; 1 :i. nt 

- 

boot device name pointer 

BCmemmap 

equ 

50 

5 1 i n t 

- 

memory map pointer 

SCbootdv 

equ 

54 

5 word 

— 

boot device number 

8 ; CONCEPT additions 

? 



5 

equ 

56 

; word 

- 

unused 

N 

3 

equ 

58 

; word 

- 

unused 

SCslttbl 

equ 

60 

{lint 

- 

slot table pointer 

SCrootw 

equ 

64 

; 1 i nt 

- 

root window record pointer 

SCcurrw 

equ 

68 

5 1 i nt 

- 

current window record pointer 

SCcurrk 

equ 

72 

51 i n t 

- 

current keyboard record pointer 

SCuserid 

equ 

76 

; word 

- 

Constel 1 ation user ID 

SCvrsnbr 

equ 

78 

; lint 

- 

current version number string point 

SCvrsdat 

equ 

82 

; 1 i nt 

- 

current version date string pointer 

SCwndtbl 

equ 

86 

; 1 i n t 

- 

window table pointer 

SCsusinh 

equ 

90 

; word 

- 

suspend inhibit count 

SCsusreq 

equ 

92 

3 word 


suspend request if non-zero 

page 






{ System Vector Equates 


SVuwrite 

equ 

0*4 

;unit write 

SVuread 

equ 

1*4 

5 unit read 

SVput 

equ 

4*4 

3 pUt 

SVget 

equ 

5*4 

5 get 

SVinit 

equ 

6*4 

5 i ni t 

SVopen 

equ 

7*4 

; open 

SVclose 

equ 

3*4 

;close 

SVwrchar 

equ 

9*4 

;writechar 

SVrdchar 

equ 

10*4 

;readchar 

BVblkio 

equ 

11*4 

;blockio 

SVnew 

equ 

13*4 

; new 

SVmark 

equ 

15*4 

; mark 

SVr1 ease 

equ 

16*4 

;release 

SVmavai1 

equ 

17*4 

;memory available 

SVgetdir 

equ 

18*4 

;get directory 

SVcrkpth 

equ 

24*4 

;crack path name 

SVcl i 

equ 

31*4 

;command line interpreter 

SVgetvnm 

equ 

32*4 

5 get volume names 

SVvaldir 

equ 

33*4 

;check valid directory 

SVf1pdir 

equ 

34*4 

{flip directory 

SVschdir 

equ 

35*4 

;search directory 

SVdelent 

equ 

36*4 

{delete directory entry 

SVputdir 

equ 

37*4 

;write directory 

SVuinstl 

equ 

38*4 

{unit install 

3 

5 Memory 

Map 

Equates 



MMlodta 

equ 

0 

{lint 

- 1 OW i 

data pointer 

MMhidta 

equ 

4 

{lint 

- high 

data pointer 

MMlocod 

equ 

8 

{ 1 i nt 

- 1 ow 

code pointer 

Mlihi cod 

equ 

1 ~ 7 « 

{ lint 

- high 

code pointer 

MMbtsw 

equ 

.16 

{word 

- boot 

switches 

MMbtdev 

equ 

IS 

{word 

- boot 

device number 

MMbtslt 

equ 

20 

{ word 

- boot 

slot number 

MMbtsrv 

equ 

22 

{ word 

- boot 

server number 



page 


Unit Tab1e Equates 


UTiodrv 

equ 


; 1 int 

— 

I/O driver pointer 

UTblf 

equ 

6 

; bool 

- 

blocked device fi£*g 

JTmtd 

equ 

7 

; bool 

- 

mounted device flag 

UTdid 

equ 

8 

5 str7 

- 

device ID 

UTsiz 

equ 

16 

; 1 int 

- 

device size 

UTsl t 

equ 

20 

; byte 

- 

device slot 

UTsr v 

equ 

21 

; byte 

- 

device server 

UTdrv 

equ 

On 

; byte 

- 

disk drive nmbr 

UTtyp 

equ 


; byte 

- 

disk drive type 

UTspt 

equ 

24 

; byte 

— 

sectors per track 

UTtps 

equ 

25 

5 byte 

— 

tracks per side 

UTro 

equ 

26 

; bool 

— 

device read only 

!» 

equ 


5 byte 

- 

- .. unused 

UTbl k 

equ 

28 

; 1 i nt 

- 

disk base block 

UTlen 

equ 

32 

5 


entry length 

5 

5 Slot 

« 

Table 

Equates 




STbtslt 

equ 

0 

; boot 

s 

lot number 

STbtsrv 

equ 


5 boot 

server number 


STacslt 
STacsrv 
STalsit 
STalsrv 
STi n-fo 

STnmbr 
STtype 
STndrv 
STinfoL 


equ 

equ 

equ 

equ 

equ 

equ 

equ 

equ 

equ 


4 

6 

8 

10 

12 

0 

1 


;active slot number 
5 active server number 
;alternate slot number 
;alternate server number 
;array Cl..51 of . » „ . 


slot number (1-5) 
device type (slottypes) 
number of drives 
device info length 


page 

; Character Set Record Equates 


CStblioc equ 
CSlpch equ 
CSbpch equ 
CSfrstch equ 
CSlastch equ 
CSmask equ 
CSattrl equ 
8; bit 0 = 1 
CSattr2 equ 


0 ;character set data pointer 

4 ;scanlines per character (assume wide) 

6 ;bits per character (vertical height) 

8 ;first character code - ascii 

10 ;last character code - ascii 

12 5 mask used in positioning cells 

16 ;attributes 
vertical orientation 

17 ;currently unused 


; Window Record Equates 


5 


WRcharpt 

equ 

0 

5 character set pointer 




WRhomept 

equ 

4 

?home (upper left) pointer 




WRcuradr 

equ 

8 

j» current location 

pointer 




WRhomeof 

equ 

12 

Kbit offset of home location 



WRbasex 

equ 

14 

;home x value, relative to 

root window 

WRbasey 

equ 

16 

jlhome y value, relative to 

root window 

WR1ngthx 

equ 

18 

;maxi mum x value, 

relative 

to 

window 

(bits) 

WRlngthy 

equ 

20 

5 maximum y value. 

relative 

to 

window 

(bits) 

WRcursx 

equ 


;current x value 

(bits) 




WRcursy 

equ 

24 

5 current y value 

(bits) 








WRgrorgy 

equ 

30 

5 graphics — origin 

y ( b .i t s r e 1 a t i v e t o h o m e 

WRattr 1 

equ 

nr 

n attribates 


invrse 

equ 

0 

p 

P 

inverse video 

mode 

und<3C.r 

equ 

i 


underscore mode 

insmod 

equ 


p 

insert mode 


viddef1t 

equ 


p 

0 = W on B, 

.1 •“ B on W 

loautolf 

equ 

4 


0 = auto L.H w/CR, i — no auto LF 

syswi n 

equ 

3 

p 

system defined 

window 

active 

equ 

6 

p 

active window 


suspend 

equ 

7 

p 

suspended window 

WRattr2 

equ 

33 

; attribates 


vert 

equ 

0 

p 

•I 

1 ~ vertical. 

0 = horizontal screen 

graphic 

equ 

1 

a 

P 

1 = graphics, 

0 = character mode 

curson 

equ 

o 

P 

1 - cursor on. 

0 = cursor off 

invcurs 

equ 

3 

P 

1 - inverse, 

0 ~ underline cursor 

wrapon 

equ 

4 

p 

i = wrap, 

0 = clip at eoln 

noscrol1 

equ 

5 

P 

1 = no scrol1, 

0 = scroll 

c 1 rsc 

equ 

6 

P 

1 = paging mode 


vidset 

equ 

7 

P 

1 = inverse 

0 - normal 

WRstate 

equ 

34 

P 

; used tor decoding 

escape sequences 

WRrcdlen 

equ 

35 

;window description 

record length 

WR1ength 

equ 

36 

p 

;actual window record length 



page 



5 DATACOM DRIVER 
COMDRV 



BRA. S 

COMOO1 


;*070782* JUMP AROUND HEADER 


DATA.B 

0 


;DEVICE NOT BLOCKED 


DATA.B 

31 


;VALID CMDS - ALL VALID 


DAT A. B 

82,10,14, 

00 

;DATE JULY 7 1982 


DATA.B' 

hml en 


;HEADER MSG LENGTH 

x x x 010 

DATA. B 

•’ DATACOM 

driver 

3A DEBUG’ ;HEADER MSG 

hml en 

j» 

COMOO1 

EQU 

%—xxx010 



? 

TRAP 

#15 



M 

!» 

DATA. W 

0 



« 

NOP 




5 

NOP 



5SET3 UP DEBUGGER 


CMP I. W 

#UNMCMD,D4 

;VALID COMMAND 

, BHI.S 

PRNDERR 



;N0 

, MOVEM.L 

D1-D6/A0 

—A6, — <SP) 


;SAVE REGISTERS 

,CLR.L 

D7 



;CLEAR IORESULT 

, MOVEA. L. 

Dl, A3 



;ADDRESS OF USERS BUFFER 


LEA 

COMTBL,A1 


5 TURN THE COMMAND INTO A 

,LSL.W 

#1,D4 



;INDEX TO THE FUNCTION 

, MOVE.W 

0 (A1,D4. 

W) , D4 



, JSR 

0(A1,D4. 

W> 


5 DO FUNCTION 

,MOVEM.L 
, RTS 

(SF‘) + „ D1 

-DS/A0-A6 


; *** temp* -for busy return in DO 


; Invalid Command Error 

m 

? 

PRNDERR MOVE.W #INVCMD,D7 

, RTS 
? 

S THE PRINTER DRIVER JUMP TABLE 


5 

COMTBL 

DATA.W 

COMINST-COMTBL 

;UNITINSTALL 


DATA.W 

COMRD-COMTBL 

;UNITREAD 


DATA.W 

COMWR—COMTBL 

;UNITWRITE 


DATA.W 

COMCLR-COMTBL 

5 UNITCLEAR 


DATA.W 

COMBSY-COMTBL 

j UNITBUSY 


DATA.W 

COMST—COMTBL 

5 UNITSTATUS 


DATA.W 

COMUNMT-COMTBL 

;UNITUNMOUNT 

; £$P 





5 ******************************************************************************* 
********************************* 


; COMINST - UNITINSTALL ==> SETUP THE DEFAULT BUFFER CONTROL FEATURES 
5 Assumes that a spurrious DataCom Control interrupt is benign and will 


be handled by the DataCom Control 


COMINST 

BSR. S 

DISINTS 

5 

LEA 

BFRCTL,AO 


MOVE.B 

DEFBWRT,<A0)+ 


MOVE.B 

DEFBRD,(AO )+ 


MOVE.B 

DEFPART,(AO)+ 


MOVE.B 

DEFWRDS,(AO)+ 


MOVE.W 

DEFINTRN,(AO) 


MOVE.W 

DEFF'ROT, (AO) 


; Initialize UART from constants and 
»» 

, MOVE. B 
, BSR. S 


interrupt service routine correctly. 

;DISABLE DATACOM INTERRUPTS 


;DEFAULT WRITE BAUD RATE 
;DEFAULT READ BAUD RATE 
;DEFAULT PARITY 
;DEFAULT WORD SIZE 
5 DEFAULT INTERNAL FLAG 
SDEFAULT PROTOCOL FLAG 

Printer Control Table & Initialize VIA 

;INITIALIZE DATA DIRECTION REG FOR PORT A 


#IQDDRA,DDRA.L 
SETUART 








, BIST 
,BEQ.S 
,MOVE.W 


#SAVSR,(AO) 
PINNOSR 
#DISINT1,SR 


;ONLY RESET STATUS REB» IF 
;SAVED SR IN 8AVESR1 
;ALLOW ALL BUT DC CONTROL 


5 Initialize READ AND WRITE BUFFER CONTROL TABLE! 


fP INNOSR 


INIWRBF 

INIRDBF 


Setup interrupt vector; 


SETVECS 


; If saved SR then restore it 


,BSR.S 
, RTS 
8 C$P 


ENBINTS 


; *****')HHHHHe*********************#1HHHHH;##*##*##')H(-#****####*#-IHHHH(-*****#*#*#*')HH 


*******•**••* •*•***•*•*•* ■****■■* *•■*•*■* 


; DISINTS -- disable level 4 interrupts if current level is less than 4 
5 If currently anything higher than lvl4 disabled dont save sr. 

; If lower than lvl4, raise to level 4 and save last value for when er 


bints time. 


DISINTS 
, BCLR 
.MOVE.W 


LEA BF_INTL+1,AO 

#SAVSR,(AO) 

SR, DO 

MOVE.W DO,D5 

ANDI.W #INTMSK,DO 

CMPI.W #INT4.DO 


;ASSUME NOT SAVED STATUS REG 


; SAVE FOR MANIPS 
;GET ONLY INTERRUPT LEVELS 
;CURRENT LEVEL - LEVEL 4 


NOTE: If 2 datcaom drivers are run si mult 


neously then have to 


vel based on datacom port 


refine this routine to distiguish l€ 


,BCC.S 
, BSET 
, LEA 


DITEXIT 
#SAVSR,(AO) 

SAVESR1,AO 

MOVE.W D5,(AO) 


;DON’T SAVE 
;MARK SAVED SR 

;SAVE THE CURRENT INT STATUS 


e of upper level 


NOW set up disable with minimum disturbam 


status bits 


this too wont i 


ork if user and 


supervisor space are both util 


sed. 


DITEXIT 


ANDI.W 
OR I. W 
MOVE.W 
RTS 


#UPRMSK,D5 
#INT4,D5 
D5, SR 


;KEEP ONLY UPR BITS 
", LEVEL 4 DISABLE OR’D IN 
;PREVENT ALL DATACOM INTERRUPTS 


; ENBINTS - Restore saved SR if saved it 


ENBINTS 
, BTST 
,BEG.S 
,MOVE.W 
ElTEX IT 


LEA BF_INTL+i,AO 

#SAVSR,(AO) 

ElTEX IT 
SAVESR1,SR 
RTS 


;IF SAVED SR FLAG SET 
;THEN RESTORE SR 
JDIDN’T SAVE SO EXIT 


5 *************************************************************************************** 
***-H-**K"K-******-X-*****-K-**** 



5 SETUART - 

- Initialize 

UART from constants 

and Buffer Control Table 

!» 

5 Get UAR'T 

Register Bas 

>e address 


SETUART 

BSR • S 

GETBASE 

;RETURNS BASE IN AO 

n 

; Setup UART^s Control 

register - index = 7 

from Base 


MOVEQ 

•ttCTLRC,DO 

j1 STOP BIT,BAUD RATE GEN 


MOVE-B 

BF WRDS,D1 

;ADD WORD SIZE-7 OR 8 BITS 


LSL.B 

#5, D1 

; MOVE INTO HI ORDER BITS 


OR. B 

D1, DO 

5 00=8 BITS,01=7 BITS 


OR. B 

BF_RDBD,DO 

$ ADD BAUD RATE FROM TABLE 

« 

MOVE.B 

DO,CTLREGI(AO) 

; PUT IN CONTROL REGISTER 

; Setup UART^s Command 

register - index = 5 

from Base 


MOVEQ 

#CMDRC,DO 

5 CMD CONSTANTS keep xmit int' 

i sabled 

LEA 

BF_PART,A1 



MOVE.B 

(Al),D1 

;GET TABLE PARITY 


LSL.B 

#5, Di 

;PUT IN CORRECT BIT POSITION 


OR. B 

D1, DO 



MOVE.B 

DO,CMDREGI(AO) 

;PUT IN COMMAND REGISTER 

; Read the 

Data Port and Status Register to 

clear all Status flags 


MOVE.B 

DATAREG(AO),DO 

;DATA PORT AT INDEX = 1 


MOVE.B 

#0,DATAREG(AO) 

;CLEAR XMIT INT 


MOVE.B 

STATRI(AO),DO 

;STATUS REG AT INDEX = 3 


RTS 



; GETBASE - 

- Get address of UART’s register 

Base address in memory 

II 

EXIT : (AO) 

= Base address 


? 

GETBASE 

LEA 

UARTDCO.L,AO 

;ASSUME USING DATACOM 0 


CLR. L 

DO 



LEA 

BF_PROF+i,Al 

jIF FLAG IS SET THEN MAKE 


BTST 

#DATACOM,(Al) 

? DO = THE ADDRESS OFFSET TO 


SNE 

DO 

; Li ART 1 ’ S REGISTERS ELSE 


ANDI.B 

#DC1QFF,DO 

5 MAKE DO = 0 


ADDA.L 

DO, AO 

;BASE := OFFSET+UART DCO BSE 

DR 

RTS 




;***************************#******##****#***************************#********- 
*********** 

; -c*P 


j SETVECS - Put interrupt routine’s entry addresses into the interrupt vectors 
SETVECS LEA DCTLINT,AO ;PUT DATA COM CONTROL 

,MOVE.L AO,VECi.W ; INT ROUTINE IN VEC 1 

,BSR.S SETDCVEC 5 PUT IN DATA COM XMIT/RCV RTN 

, RTS 


jl SETDCVEC - Depending on which DataCom Port is being used, place the 
; address of the Xmit/Rcv DataCom int routine’s entry address in 

; the interrupt vector for that DataCom. Put a pointer to a RTE 

; instruction into the vector not being used, just in case some 

j tyrkey interrupts on that line 


SETDCVEC LEA 
LEA 
LEA 


VEC4.W,AO 
VEC2.W,A1 
BF_PR0F+1,A2 


;ASSUME DCO (VECTOR 4) 
; DC1 IS VECTOR 2 





EXG 


AO, A 1 


; NO,USE DC1 (VECTOR 2) 


SDVUSEO 


LEA 

LEA 

MOVE.L 
MOVE. L. 


DCOM I NT, A:; 
F'TRRTE, A3 
A2,(AO) 

A3,(A1) 


JADDR OF XMIT/RCV INT ROUTINE 


5 INTERRUPT ROUTINE 
;PTR TO RTE 


5 C$P 

; *******#*********************************************•){••)(•*•)«••«•****■)(•#**■«•#*•)«•****«■**•> 
•*****•**•*•**• •*•*•*•*•**•*** 


; INIWRBF - Initialise Write Buf-fer variables to EMPTY Buffer also ENQ, BUSY ar 
; SENDLF are cleared to false. 


INIWRBF LEA 

LEA 

MOVE.L 

RACTERS IN) 

MOVE.L 

HARACTERS OUT) 


WRTCTL,AO 
WRTBIJF, A1 
A1,(AO)+ 


;WRITE BUFFER CONTROL TABLE 
;WRITE BUFFER 

; FILL POINTER (USED TO FILL Cf 


A1,(AO) + 


;EMPTY POINTER (USED TO EMPTY 



MOVE.W 

#WBFL£N,(AO)+ 


MOVE.W 

#WBFLEN,(AO )+ 

TO FILL 

MOVE.W 

#MAXWHI,(AO)+ 

WATER MARK 

MOVE.W 

#MAXWLO,(AO)+ 

ATER MARK 

CLR.W 

(AO) 


ADDQ.L 

#1, AO 


BSET 

#LTLO _W1, (AO) 


ADDQ.L 

#2, AO 


BSET 

#EMPT__W2, (AO) 


BSET 

#AULF_W2,(AO) 

SERTED 

RTS 



;MAXIMUM SIZE OF BUFFER 
;NUMBER OF LOCATIONS AVAILABLE 


;NUMBER OF CHARACTERS FOR HIGH 
5 NUMBER OF CHARACTERS FOR LOW 


;RESET ALL FLAG1 
;LOW ORDER BYTE 
5 BELOW LOW WATER MARK 
POINT TO FLAG2 
; BUFFER IS EMPTY 
5 AUTO LINE FEED AFTER CR IS A 


; *********#-x-****************************************'*******#** 

; INIRDBF - Initialise READ E«uffer variables to EMPTY Buffer also ENQ, BUSY and 
; SENDLF are cleared to false. 


INIRDBF LEA 

LEA 

MOVE.L 

RACTERS IN) 

MOVE.L 

HARACTERS OUT) 


RDCTL,AO 
RDBUF,A1 
A1,(AO)+ 


READ BUFFER CONTROL TABLE 
READ BUFFER 

;FILL POINTER (USED TO FILL CH 


Al, (AO)h- 


;EMPTY POINTER (USED TO EMPTY 


TO FILL 
WATER MARK 
ATER MARK 


MOVE.W 

#RBFLEN,(AO)+ 

MOVE.W 

#RBFLEN,(AO)+ 

MOVE.W 

#MAXRHI,(AO)+ 

MOVE.W 

#MAXRLO,(AO)+ 

CLR.W 

(AO) + 

CLR.W 

(AO) 

ADDQ.L 

#1, AO 

BSET 

#LTLO„Rl,(AO) 

ADDQ.L 

#2, AO 

BSET 

#EMPT_R2,(AO) 

RTS 



;MAXIMUM SIZE OF BUFFER 
5 NUMBER OF LOCATIONS AVAILABLE 


;NUMBER OF CHARACTERS FOR HIGH 
;NUMBER OF CHARACTERS FOR LOW 


; CLEAR ENQ COUNT 
;RESET ALL FLAG1 
;LOW ORDER BYTE 
5 BELOW LOW WATER MARK 
POINT TO FLAG2 
; BUFFER IS EMPTY 


; *■**•**• *•*••*■* *■**•**•***•*#***•**•**#•*•****-*•*•**■*•**-**■*•*•*•**•*****• *■***•*•**•*■***#•**.***■**■***•.*■*■ *•*--* 
******* k-•***••*»*#* x-*#*-* *•*••*• * 


COMRD - LJN.I TREAD 

READ FROM THE DATACQM BUFFER 


INPUTS. 


..D2 COUNT UF CHARACTERS THE USER WANTS TO READ 
A3 ADDRESS OF USER’S BUFFER- 


NOTES: 


For reading, interrupts will occur when the input buffer 


f u 1 .1 -n o 


x activities 


priming is necessary as is with writing. Also if full dup] 


then a read and write interrupt may be the same interrupt 


have to check 


status flags of UART. 


COMRD 


First see if user’s count is exhausted if not-attempt a 


TST.W 

BEQ.S 


D2 

COMREX 


5 COMREX GENERAL EXIT ROUTINE 


Here see if the user has disabled input in any meaningfi. 


REREAD 


LEA 

BTST 


RB_FLGl+i,AO 
#INPE Ri,(AO) 


;IS BUFFER TO USER TRANSFER EN£ 


LED? 


BEQ.S 


CKPORT 


; YES IT IS - NOW SEE IF PORT 


0 BUFFER XFER IS ENABLED 


HERE SEE IF THE USER HAS DISABLED THE XFER F 


OM BUFFER TO USER 
BTST 


BEQ.S 


#INF'C__R 1 , (AO) 
REREAD 


; NOPE—MACHINE DISABLED KEEP 


RYING 


HERE the user has disabled his buffer input -remind him 


MOVE.W 
RTS 


#IOEirdsbl,D7 


; Here if there is any data in the buffer, give it to user. 

If there is no data and 

; the user has disabled the outboard read, remind him. Hon 

ver if the klutz wants to 

j read and there aint nothin there hang him in a loop wait 


ng for data. 


CKPORT 

STUCKRD 

LEA 

BTST 

BEQ.S 

LEA 

AT LEAST ENABLED 
BTST 
BEQ.S 


RB_FLG2+i , AO 
#EMPT_R2,(AO) 
READONE 


RB__FLGi + l, AO 


5 SEE IF BUFFER IS EMPTY 
; NOPE GO READ A CHARACTER 
; BUFFER EMPTY—SEE IF INPUT IS 


#0UTE__R1, (AO) 
STUCKRD 


; YES IT IS -USER WINS A LOOP 


Here see if the user or machine disabled the 


outboard read 

BTST 

BEQ.S 


#GUTC_R1,(AO) 
STUCKRD 


; MACHINE DISABLED -TRY AGAIN 


Here the user has the read port rtisahloH -’ 1 K " 


RTS 


anage buffer 
5 

READONE 

BSR. S 

FROM THE BUFFER 

IB Lt'_i . 3 


etchr 

y 

RDPROB 

COMREX 

5 

; c*p 


MOVE.B 
SUBQ.W 
BRA. S 


RTS 

MOVE.W 
RTS 


Here we win the big banana -get user his characters an 

UGETCHR ;GET THE CHARACTER FOR THE US 

RDPROB ;IF RDPROB THEN FOUND BY UGETi 

Here give user his character and keep track of his spai 
D7,(A3 )+ 

#i ,D2 

COMRD ;GETSMOA IF AVAILABLE 

Note that d7 is all set up to point at err if found by 
thus a simple return is all thats required 

#I0ok,D7 


; UGETCHR - User level get character routine, gets the character from the r 

d buffer. 


The character if gotten is returned in D7 since dO clob 


red by disints. 


If there are any problems, then the horrGor code is set 


nto D7 


and the carry bit is set 
If all ok then carry bit is cleared 


UGETCHR 

MOVEM.L 

BSR 

LEA 

ADDRESS 

MOVE.L 

OS IT ION OF RD BUFFER- 
MOVE. B 

a checks made to ensure 


D1-D6/AO-A6,-<SP) 

DISINTS 

RB EMPTY,A1 


5 GET RID OF INTS HEREIN 
? Ai NOW HOLDS POINTER TO EMP 


(Ai),AO 


;AO NOW POINTS TO THE EMPTYING 


< AO)+,D7 


;Coming into this routine -bun 


at least one character is 


ailable. This then is the 


MOVE.L AO,(AI) 
k to rb_empty 


; "get" of that character. 

5 Move the incremented pointer b 


Now check for various things such as pointing beyond end of physic 


buffer 


hi and lo water marks , and consistency of buffer sizes. 


LEA 

ER IN A2 

CMPA.L 

int to next logical 


RDBUF+RBFLEN,A2 


;PHYSICAL ADDRESS OF END OF BU 


AO, A2 


;Note ao incremented above to 


; character position 
; Compare is physical end of 


ffer - next assumed 


BGT.S 


NORWRA 


; character address 
; HERE + OK —NO WRAP AROUND 


ADDRESS 




LEA 

5 

MOVE.L 

* 

interrupt 

routines 

5 

•for the best 

* 

NQRWRA 

LEA 

ADDS.W 

E SPACE 

LEA 

MOVE.W 
SUB. W 

ZE 

BLT.S 

TER 

BGT. S 


RDBUF,AO 
AO, (A1) 

From here on out 
may wel1 fiddle 


RB_FREE, AO 
#1,(AO) 

RB_SIZE,A1 
(AO),DI 
(Al),D1 

CRWAT 

HELPRD 


we will 
wi th, 


;ADDRESS OF TOP OF READ BUFFER 
; RB_EMPTV NOW RESET 

be screwing with things that the 

hence disable interrupts and hope 


;SINCE WE GOT CHAR, ONE MORE FRE 

; #QF FREE LOCATIONS - BUFFER SI 
; - OR 0 OK HERE CHECK HI/LO Wl 
; HELPRD IS SERIOUS ERROR 


nee buffer is 


Here the number of free locations is = size of buffer, he 
empty- reset all painters 


c 


HELPRD 


LEA 

RDBUF,AO 

LEA 

RB_EMPTY,Al 

LEA 

RB_FILLP,A2 

MOVE.L 

AO,(Al) 

MOVE.L 

AO,(A2) 

LEA 

RB_FLG2+1,AO 

B3ET 

#EMPT_R2,(AO) 

LEA 

RB_FLG1+1,AO 

BSET 

#LTLO__Ri , (AO) 

BSR 

ENBINTS 

MOVEM.L 

(SP)+,Di—D6/AI 

MOVE.W 

#0,CCR 

RTS 



BSR 

ENBINTS 

MOVEM.L 

(SP)+,DI—D6/AC 

MOVE.W 

#IOEbszerr,D7 

MOVE.W 

#1,CCR 

RTS 



j EMPTY ADDRESS REINITIALISED 
; FILL POINTER REINITIALISED 


j SOME FLAGS RESET 

;CLEAR CARRY SINCE ALL OK 

j SERIOUS BUMMER BUG 

;SI ZING ERROR 
jSET CARRY 


omeday want 
5 

CRWAT 

BSR. 3 
BSR 

MOVEM.L 
MOVE.W 
RTS 


Here check the hi/'la water marks etc set flags user may * 


REDWAT 

ENBINTS 

(SP)+,Dl—D6/A0-A6 

#0, CCR ,* ALL OK 



redwat 


REDWAT 


-checks water marks for reading 

NOTES: This routine assumes that interrupts are disabled prior 
to its being provoked. 


MOVEM.L 

LEA 


AO— A2/D1/D2,—(SP) 
RB_FL_G 1 + 1 , AO 


;SETR UP FLAG WORD FOR MANIPS 




LEA 

RB_FREE,A2 



MOVE.W 

(A1) , D1 



SUB. W 

(A2),Di 

5 TAKE AWAY FREE SPACE, LEAVI 

UM8R CHARS 

IN BUFFR 




LEA 

RB LOWA,A1 



CMP, W 

(A1>,Di 

; HOW DOES NMBR CHARS COMPARE 

LOW WATER 

MARK .CR-LOWA 



BEQ.S 

ATLO 

5 =0 THEN AT LOW WATER 


BLT.S 

BELOLO 

; - TRHEN L.5ESS THAN LOW WATE 

ARK 




3 

5 


Here obviously + so 

compare with hi water marks- curre 

y do not deal 



5 


with the absurdity 

of user setting hi<lo etc. 


LEA 

RB_SIZE,A1 



MOVE.W 

(Al),D2 

5 ACTUAL SIZE OF BUFFER 


LEA 

RB_HIWA,A1 



SUB. W 

(Al),D2 

5D2 NOW CONTAINS TOTAL # CHAR 

0 GET TO HIWAT MARK 




CMP. W 

D2,D1 

5 HIWAT - ACTUAL # CHARS IN BU 


BEQ.S 

ATHI 

j AT HI WATER MARK 


BLT.S 

MORHI 

; BEYOND HI WATER MARK 


BRA 

BYR 


ATLO 

BSET 

#ATL0._R1, (AO) 



BRA 

BYR 


BELOLO 

BSET 

#LTL0_R1,(AO) 



BRA 

BYR 


ATHI 

BSET 

#ATHI__R1, (AO) 



BRA 

BYR 


MORHI 

BSET 

#BGHI_R1,(AO) 


BYR 

MOVEM.L 

RTS 

(SP)+,A0-A2/D1/D2 



; **************#****#******#******************************#****************-**-5 
********************* 


; c$f 

; COMWR - UNITWRITE 

II 

; INPUTS.D2 COUNT OF CHARACTERS THE USER WANTS TO WRITE 

; A3 ADDRESS OF USER'S CHARACTERS 

; Setup the write buffer, and if appropriate, start filling it with 

aracters. 

; NOTE: 

; For writing, the UART has to be tricked into interrupting wf 

the xmit buffer 

; is empty by enabling the xmit interrupt. If no emissions th« 

of course its empty 

; and it interrupts forever. Hence trickery only when sending 

rst of a stream 

; (starting interrupts) and last, of a stream (stopping the lil 

e dears) 

u 

COMWR 

TST.W D2 jIS USER COUNT DONE? 

BEQ.S COMWEX 5 YES 


way 


Here see if the user has disabled input in any meaning- 




BIST #INPE._W1, (AO) 5 IS USER TO BUFFER TRANSFER ENAI 

LED? <INBOARD WRITE) 

BEQ.S CKWRTP 5 YES IT IS - NOW SEE IF BUFFEF 

TO PORT XFER IS ENABLED 


M ON BUFFER TO USER 
i BTST 

BEQ.S 

RYING 


HERE SEE IF THE USER HAS DISABLED THE XFER FF 
#INPC__W 1 „ (AO) 

REWRITE ; NOPE—MACHINE DISABLED KEEP 1 

HERE the user has disabled his buffer input -remind him 


MOVE. W #l'QEi wdsbl , D7 

RTS 


; Here put the user’s data into the buffer. First see if chi 

r can fit in buffer, and 

; whether or not outboard write is enabled. User may win a 

wait loop given the right 

; conditions. Also may have to prime pump -whoopeee. 


CKWRTP 

MOREWR 

LEA 

BTST 

BEQ.S 

FER 

LEA 

AT ALL ENABLEDD 
BTST 
BNE.S 

USER DIABLED 


so start xmits 

« 

BSR. S 
BRA 


THE PORT 


outboard write 
MCHQFF 

BTST 

BEQ.S 


MOVE.W 
RTS 


WB__FLG2+i, AO 
#FULL_W2,(AO) 
WRTONE 


;SEE IF BUFFER IS FULL 
;NOPE GO WRITE A CHAR TO THE BUF 


WB_FLG1+1,AO 


; BUFFER FULL - SEE IF OUTPUT IF 


#OUTE__Wi , (AO) 
MCHOFF 


; NO IT ISN’T, SEE IF MACHINE OF 


Here see if the buffer was previously empty -if 


MAYWRTS 

MOREWR 


5 HERE WE MAY START A WRITE OU" 


Here see if the user or machine disabled the 


#QUTC_Wi,(AO) 
MOREWR 


; MACHINE DISABLED -TRY AGAIN 

Here the user has the write port disabled -tell him 

ttlOEowdsbl,D7 


Here start the hardware write operation if appropriate 


MAYWRTS 

BSR 
LEA 
BCLR 
BEQ.S 

T HARDWARE-IT SHUD BE ON 

BSR 8TRTXMIT 


DISINTS 
WB_FLG2+1,AO 
#EMPT _W2, (AO) 
MAYBYE 


WAS IT EMPTY 

; NOPE NOTR APPROPRIATE TO STA 


;ENABLE XMITT INTERRUPT PR0CE3 


ING 

MAYBYE 


BSR 


ENBINTS 







e buffer 


WRTONE 

MOVE.B 
SUBQ.W 
BSR.S 

HE WRITE BUFFER 

BCC.S 


(A3)+,D7 
#1, D2 
UPLJTCHR 


5 PUT THE USER’S CHARACTER INTO 


COMWR 


5 IF WRF'ROB THEN FOUND BY UPUTCHI 


Note that d7 is all set up to point at err if found by u| 


utchr 


thus a simple return is all thats required 


WRF'ROB 


COMWEX 

BSR.S 

BUFFER NOT FULL -RAN 


MAYWRT5 


;MAY HAVE TO START A WRITE EVEN THO WRITE 


;OUT OF USER CHARACTERS!!! 


MOVE.W 
RTS 


#IOok,D7 


; C$F‘ 


; UF'UTCHR 
te buffer. 


— User level put character routine, puts the character into the wr 


This routine assumes that somebody has already checked t 


see that 


there is enuf room in the buffer 
The character to be put is in d7. 

If there are any problems, then the horrSor code is set 


n to D7 


and the carry bit is set 
If all ok then carry bit is cleared 


UF'UTCHR 


MOVEM.L 

BSR 

LEA 

MOVE.L 

ION OF WRITE BUFFER 
MOVE.B 

a checks made to ensure 


Dl—D6/A0-A6,—(SP) 
DISINTS 
WBFILLF', Ai 
(A1),AO 


5 POINTER TO ADDRESS IN Al 
AO NOW POINTS TO THE FILL POST 


D7, <A0> + 


;Coming into this routine —bund 


at least one character is a 


ailable. This then is the 


MOVE.L 

IFF NECESSARY 


AO,(Al) 


; “get" of that character. 
;BUMP THE FILL POINTER—ADJUST BELOI 


Now check for various things such as pointing beyond end of physica 


buffer 


hi and lo water marks , and consistency of buffer sizes. 


LEA 

FER IN A2 

CMPA.L 

int to next logical 


WRTBUF+WBFLEN,A2 


;PHYSICAL ADDRESS OF END OF BU 


AO, A2 


;Note ao incremented above to p 


5 character position 
; Compare is physical end of b 


ffer - next assumed 


BGT.S 


NOWRAP 


; character address 

; HERE + OK —NO WRAP AROUND Q 


ADDRESS 



LEA 

MOVE. L 


interrupt routines 
tor the best 


WRTBUF,AO ;ADDRESS OF TOP OF WRITE BUFFE 

AO,(Al) 5 WB_FILLP NOW RESET 

From here on out we will be screwing with things that th 

may well -fiddle with, hence disable interrupts and hop 


NOWRAP 


REE SPACE 
FULL 

ARE LIKE 


O 


FULLUP 


LEA WB_FREE,AO 

SUBQ.W # 1, (AO) 

BEQ.S FULLUP 

BGT.S WRWAT 


;SINCE WE WROTE CHAR, ONE LESS 
.IF TQ puLLUP THEN THE BUFFER I 
; IF + THEN SEE WHAT WATER MARK 


Here we got severe problems it number of free spaces is 


BSR ENBINTS 

MOVEM.L (SP)+,D1-D&/A0-A6 

MOVE.W #IOEwss err,D7 

MOVE.W #1,CCR 

RTS 

HERE 

LEA WB_FLG2+i,Al 

BSET #FULL__W2, (A1) 

LEA WB_FLG1+1,A1 

ANDI.B #HILOMSK,<A1) 

BSET #BGHI_Wi,(Al) 

BSR ENBINTS 

MOVEM.L (SP)+,D1-D6/A0—A6 

MOVE.W #0,CCR 

RTS 


;REENABLE INTERRUPTS 

;SIZING ERROR 
;SET ERROR 

THE BUFFER IS FULL SET FLAGS 

5 FULL FLAG 

5 ABOVE HI WATER MARK 
;REENABLE INTS 

;FULL BUFFER IS NOT ERROR 


omeday want 
5 

WRWAT 

BSR. S 
BSR 

MOVEM.L 
MOVE.W 
RTS 


Here check the hi/lo water marks etc set flags user may 


WRTWAT 

ENBINTS 

(SP)+ ,D1-D6/A0-A6 

#0,CCR ; ALL OK 


; WRTWAT -checks water marks for WRITING 


WRTWAT 


NOTES: This routine assumes that interrupts are disabled prior 
to its being provoked. 


MOVEM.L 
LEA 

ANDI.B 
LEA 
LEA 

UMBR CHARS IN BUFFR 
MOVE.W 
LOW WATER MARK CR-LOWA 

SUB.W (A2) 


AO—A2/D1/D2,-(SP) 
WB_FLG1+1,AO 
#HILOMSK,(AO) 
WB_3IZE,Al 
WB_FREE,A2 

(Al),D1 


Di 


; SETR UP FLAG WORD FOR MANIPS 

;ACTUAL SIZE OF BUFFER 
; TAKE AWAY FREE SPACE, LEAVES 

5 HOW DOES NMBR CHARS COMPARE T 

5 =0 THEN AT LOW WATER 





CMP. W 

(A1) , DI. 


BEQ.3 

ATLOW 


BLT. S 

BELOLOW 

«! 

j» 


Here obviously t ■ 

y do not 

deal 


£ 


with the absurd 


LEA 

WB_SIZE,A1 

ntual1y) 

MOVE.W 

(Al),D2 

iv 

LEA 

WB_HIWA,Ai 

K 

SUB. W 

(Al),D2 


CMP. W 

D2.,Di 

rs in byuffer 



BEQ.S 

ATHIW 


BLT. S 

MORHIW 


BRA 

BYW 

ATLOW 

BSET 

#ATL0_W1 ! , (AO) 


BRA 

BYW 

BELOLOW 

BSET 

#LTL0_W1,(AO) 


BRA 

BYW 

ATHIW 

BSET 

#ATHI_W1,(AO) 


BRA 

BYW 

MORHIW 

BSET 

#BGHI_W1,(AO) 

BYW 

MOVEM.L 

RTS 

(SP)+,AO-A2/D1/D2 


!» 


compare with hi water marks- current 
of user setting hi<lo etc. 

; actual buffer size to ci2 (evi 

5 numbr of chars in hi water mai 

;hi water mark - actual nmbr ch 


; l*$P 
5 

upts 

5 

; STRTXMIT 
5 

5 STOPXMIT 


NOTE: 


it is assumed that these routines are protected from interi 


start xmit interrupt process by enabling UART to interrupt 
on transmit buffer empty. 

stop xmit interrupt process by disabling UART to interrupt 
on transmit buffer empty. 


STRTXMIT 


, MOVEQ 


,BRA.S 
STOPXMIT 
,MOVEQ 


#XMITENB,Di 
SXTSETB 


5 ENABLE XMIT INT 


#XMITDIS,Di 


5 DISABLE XMIT INT 


SXTGETB 
,MOVE.B 


BSR GETBASE 

CMDREGI(AO),DO 
ANDI.B #CLRD3D2,DO 

DI, DO 

DO,CMDREGI(AO) 


j GET UART BASE ADDRESS 
5 GET CURRENT CMD REG 

;CLEAR BITS D3 & D2 
;DON’T CHANGE OTHER BITS 
j SAVE CHANGED CMD REG 


, OR. B 
,MOVE.B 
, RTS 
5 CSP 

;tt******************#*********************************#*******^*************-**-* 
***************#-***#***-*** 


j DCOMINT - DataCom Interrupt routine for XMIT/RCV interrupts. 


NOTE: I f we find some way to use onlv 1 driver tn nlsv with nnrt 




CRITICAL: i f an interrupt occurs, then both the receive buffet 


■full and the xmit 


buffer empty could be true simultaneously, so we mu. 


t test both, 


t. we are not user 


However, only once thru the test then rte 
Currently the priority is reads then writes 
The fact that we have an interrupt, for read or write means th< 


disabled, so we don't have to check that, condition, 


DCOMINT 
, BSR 


MOVEM.L 
SETBASE 


DO—A6, — ( SP) 


;SAVE ALL REGISTERS 
;GET UART BASE ADDRESS 


; If Receive interrupt then see if should process character 


REACHK 
,MOVE.B 


,MOVE.B STATRI(AO),DO 

MOVE.B DO,D7 

TERRUPT LATER 

BTST #S_RCVF,DO 

,BNE.S DCIRCVC 


GET STATUS OF UART 

; STORE STATUS FOR TEST XMIT II 


5 TEST FOR RECEIVE BUFFER FULL 
;PROCESS RECEIVED CHAR 


; Not Receive, if Transmit interrupt then see if can send character 
; NOTE: THIS TESTS D7 WHICH ALLOWS US TO COME THRU HERE AFTER A READ CHE( 

K DONE 
WRICHK 

BTST #S_WRTE,D7 j XMIT BUFFER EMPTY? 

,BEQ.S DCIEXIT ;NG, UNKNOWN INTERRUPT - EXIT 

DCIPX BSR PRXMIT 5 YES, PROCESS XMIT 

DC I EX IT MOVEM. L <SF')+,D0-A6 ; EXIT-RESTORE REGISTERS 

PTRRTE RTE .“EXIT INTERRUPT 


; process received character 


DCIRCVC MOVE.B 

,BCLR #BITD7,DO 

LEA 

CHECK HI BYTE 

BTST 
BNE. S 

-FOOEY 


DATAREG(AO),DO 


;GET CHAR/CLEARS INTERRUPT 


BF PROF,A1 


CLEAR D7 OF CHAR JUST IN CASE 

SEE IF ANY PROTOCOLS AT ALL- 


#PR0T_P2,(Ai) 
PR0T3 


; IF SET THEN A PROTOCOL EXIST! 


HERE just put character into read buffer 


and get out since 


no protocols are required. 


BSR.S 
BRA. S 


MPUTBFR 

WRICHK 


;MPUTBFR —PUT A CHARACTER INTO THE READ BUFFER AND RETURN -ADJUST COUNTERS/POII 


TER3 AS REQUIRED 

; COMING IN D7- CONTAINS STATUS WORD DO CONTAINS CHARACTRER 

; AO POINTS TO UART 


MPUTBFR 


LEA 

LEA 

MOVE.W 


RB_FILLP,AI 
RB_FREE,A2 
(A2),D1 


; POINTER TO FILL POINTER IN A 


MOVE THE FREE CHARACTER COUNT 


TO D1 


TST. W 


SEE IF ANY FREE SPACE IN BUFF ; 


BEQ. S 


OVFLOW 


; NO FREE SPACE, ADDING THIS 0 


ARACTER WUD OVERFLOW BUFFER 





MOVE■L 
MOVE.B 
MOVE.L 


end of buffer 


LEA 

CMPA.L 

BGT.S 

LEA 

MOVE.L 


INORRP 


SUBQ.W 
MOVE.W 


LEA 

BCLR 

BSR 


AD BUFFER 


TST. W 
BEQ.3 
MOVE.W 
RTS 


FULLRD 


LEA 
BSET 
MOVE.W 
RTS 


fer would overflow 


t buffer bounds would 


can the data. If 


indicator, 
OVFLQW 


LEA 

BSET 


D RETURN 


MOVE.W 
RTS 


(A1),A3 
DO, <A3>+ 
A3,(A1> 


J A3 NOW POINTS TO BUFFER 
5 AUTO ADJUST POINTER 
; RESET THE FILL POINTER RB F11. 


j Here check to see if pointer wraps arounc 


RDBUF+RBFLEN, A5 

A3, A5 

INORRP 

RDBUF,A5 

A5, <A1) 


5 END OF BUFF-CURRENT LOG 
; IF O THENB NO READ WRAP 


SADJUST POINTER 


#1, D1 
Dl,(A2) 


; DECREMENTR THE FREE COUNT 
; ADJUST THE FREE CHARACTER COl 


RB„FLG2+1,A2 
#EMPT_R2,(A2) 
REDWAT 


;NO LONGER IS BUFFER EMPTY 
5 RESET EMPTY FLAG ANYHOO 
5 ADJUST WATER MARKS FOR THE RE 


Dl 

FULLRD 
#0,CCR 


; REDWATR SCRIBBLES OVER REGS 
5 SEE IF REALLY FULL 


RB_FLG2+1,A1 
#FULL_R2, (Al) 
#0,CCR 


Here if the character were put in the bcH 


In actuality data would be overwritten bt 


still be observed. If no protocols, then 


protocols then set the carry as an error 


RB_FLG2+1,Ai 
#LQST R2, <Al) 


! SET DATA LOST FLAG -THROW BYTE AWAY Af 


#1,CCR 


; •*******************TEMP IGNORE ALL PROTOCOLS**********************************-! 


F'RQTS 


BF PROF+1,Al 


;IF LINE TYPE OF HANDSHAKE 


BTST 


#LINE,(Al) 


jBETWEEN PRINTER & DRIVER 


BNE.S 


DCIEX IT 


;then ignore character 


; Here examine xon/xoff and enq/'ack type protocols 


BRA. S 


DCIEXIT 


j EX IT 


STOPPED XMIT 



***********■#*#••*•******■*•*•*•#•*•*** 


; HP 

5 PRXMIT - process transmission interrupt 
; Just send the next character it possible 


ENTRY : (AO) = UART Base address 


PRXMIT 


BF PROF,A1 


BLED AT ALL 


BTST 

BNE 

BSR 


•ttPROT P2,(Al) 

F'ROWRT 

MGETCHR 


;FIRST SEE IF ANY PROTOCOLS EN 
5 IF SET THEN A PROTOCOL EXIST 
;ATTEMPT TO WRITE A CHAR FROM 


UFFER 


; NOTE: no hairy checking of protocols curr 

ntly done cuz first test 

; is to run sans protocols. 

“ — — — . •— —~ — 

;MGETCHR - GET A CHARACTR FROM BUFFER TO MACHINE PORT 
5 

MGETCHR 


LEA 

BTST 

BEQ.S 


OUT? 


BCLR 

BEQ.S 


MOVE.B 
MOVE.W 
RTS 


NOLF 


BUFFER 


LEA 

MOVE.W 
SUB. W 

IN BUFFER (Dl) 

BEQ.S 

BLT.S 

NDERFLOW 


First see if hve to force a line feed ou 

WB_FLG2+1,Al 

#AULF_W2,(Al) 5 IS AUTO FEED REQUIRED? 

NOLF ; NO 

Here auto If is required iff last char out was CR 


#CRTF_W2,(Al) 5 SEE IF CR WAS LAST CHARACTER 

NOLF ;NOPE 

HERE ADD THE LINE FEED-DONT ADJUST POINTERS 


#LF,DATAREG(AO) 
#0,CCR 


HERE -NORMAL CHAR FROM BUFFER PROCESSING 


WB_EMPTY,Al 
WB FREE,A2 


; POINTER TO EMPTY POINTER 
3 POINTER TO # OF FREE SPACES I 


WB_SIZE,A4 
(A4),D1 
(A2),D1 


j MAX SIZE OF BUFFER POINTER 
; Dl HAS MAX BUF SIZE 
;SIZE-FREE SPACE =NUMBER CHARS 


EMPTYB 

UNDFLOW 


,* EMPTY BUFFER 

3 IF < 0 CHARACTERS THEN DATA 


Here we assume there is a character to se 



MOVE.L 

(Al),A3 

ACTER TO 

MOVE OUT 



CMPI.B 

#CR,(A3) 

URN 


BNE. S 

NOCR 


LEA 

WB_FLG2+1,A5 

FLAG SET 


BSET 

#CRTF__W2, (AS) 

NOCR 


MOVE.B 

(A3)+,DATAREG 


3A3 NOW POINTS DIRECTLY AT CHA 
5 SEE IF THIS IS A CARRIAGE RE 


SET CR FLAG FOR USE IF AULF 


PUSH CHARACTER OUT 




;Here check to see if pointer wraps around 


end of buffer 

WRTBUF+WBFLEN, A5 
A3 ? A5 
INOWRP 
WRTBUF,A5 
A5 ? (A1> 

INOWRP 


LEA 

CMPA.L 


LEA 

MOVE.L 


;END OF BUFF-CURRENT LOG 
; IF + THEN NO WRAP 

;ADJUST POINTER 


; **********************************Temporary kludge coming up —the full flag 

should really be reset 

; on the second interrupt after xmit interrupts enabled, since first i 

nterrupt just primes 

; this routine to shove characters out. the very first interrupt, only 

means the 


; interrupt mechanism is working, not that characters made it to anywh 

ere buit the 


data regiuster. 

LEA WB__FLG2+i, A1 

BCLR #FULL__W2, <A1) 


NG KLUDGE NOTE ABOVE 
ADDQ.W 
SUBQ.W 
BEQ.S 
BLT.S 

UFFER WHICH MEANS 


#1,(A2) 
#1, D1 
EMPTYB 
UNDFLOW 


THAT THE CHAR IS GONE 


ST SHUT DOWN XMIT 


C ABLE) 


BSR 

MOVE. W 
RTS 


WRTWAT 
#0,OCR 


; OBVIUOSLY ALWAYS TRUE EXCEPTI 

; ONE MORE FREE CHARACTER 
; ONE LESS CHAR IN BUFFER 

? IF < O U NOW HAVE AN EMPTY B 

; THE NEXT INTERRUPT INDICATRES 

,* AND IF NO MORE CHARS, THEN MU 

? OF CHARS (TURN OF XMIT INT EN 

jADJUST WATER MARKS 
; ALL IS STILL OK 


EMPTYB 

, ETC. THIS IS THE 
CLUDING A TRIP THRU 


LEA 

LEA 

MOVE.L 
MOVE.L 
MOVE.W 
MOVE.W 
LEA 
CLR.W 
ADDQ.L 
BSET 
ADDQ.L 
BSET 

T UNTIL LAST INTERRUPT 
MOVE.W 



WB_FILLP,A1 
WRTBUF,A2 
A2,(Al) + 

A2,(Ai) + 
#WBFLEN,(Ai> + 
#WBFLEN, (A1) + 
WB_FLG1,A1 
(Ai) 

#1, A1 

#LTL0_W1,(Al> 
#2, Ai 

#EMPT_W2,(Ai) 


#0,CCR 


nee is normal 


5 THE BUFFER IS EMPTY , RESET ALL POINTERS 

5 NORMAL WAY FOR A WRITE TO TERMINATE, IN 

; THE UNDFLOW ROUTINE. 

; BUFFER FILLUP POINTER POINTER 
; BUFFER ADDRESS 

5 RESET POINTERS 

,* RESET THE SIZE PARAMETERS 

;POINT TO FLAGS 

;POINT TO NEXT FLAG 
j EVEN THO EMPTY DO NOT STQPXM] 


Now handle the underflo which if happens c 


5 termination mode for writing 

5 

UNDFLOW 


FOR A WRITE) 

BSR STOF'XfilT ; SHUT DOWN WRITE PORT 

MOVE.W #1,CCR ; signal any protocol of end o 

the line 

RTS 


Jl 

PROWRT 




* 

LEA 

BF_INTL+1,Al 



BTST 

#ENQFLG,(Al) 

;SEE IF SHOULD SEND A ENQ 


BEQ. S 

F'XTNENQ 

; NO 


BCLR 

#ENQFLG,(Al) 

5 SEND THE ENQ CHAR 

n 

MOVE.B 

#ENQ,DATAREG(AO) 

;CLEARS INTERRUPT 


F'XTEX IT RTS 

tt 

? 

; {*p 

; ******************************************************************************************** 
*********■*****•*■*•*•#*■*■*•*•*•*■*■*•* 

; DCTLINT — Data Com Control interrupt service routine. 

; Ignores the interrupt if wasn’t a DataCom Control interrupt, 

; therefore an Apple slot interrupt, or if NOT Line type 

; handshake method. Always clears the interrupt. 


n 

DCTLINT MOVEM.L 

,BSR.S INITDCC 

5 

ny are line prots 
5 

LEA 

BTST 

ASE WE MOVE THRU 
BNE.S 


D0-A6, — (SF‘) ; SAVE REGISTERS 

5 CLEAR INTERRUPT/(DO) = PORT A 

See if any protocols at all and if so if 


BF_PR0F,A1 j HI ORDER BYTE OF FLAG 

#PR0T„P2, <A1>+ 5 SET U7P NEXT BYTE OF FLAG IN 

DCLEXIT ; NO PROTOCOLS—GET OUT 


; HERE WE HAVE PROTOCOLS 

; If (type of handshake <> Line) then exit 


BTST 

BEQ.3 


#LINE,(Al) 
DCLEXIT 


5 NOT LINE HANDSHAKE, EXIT 


; Determine which Line is used as Busy line Port A 


BSR. S 


FINDLIN 


$ NEEDS Al * PTR TO BF F'ROF+i 


;set or clear Busy depending on state of line and whether it’s Busy inverted or 
not 


LEA 

MOVE.B 
MOVE.W 
BSET 
BSR. S 
BNE.S 
BCLR 


BF_INTL+1,A2 
(A2),D1 
#DISINT4,SR 
#BUSY,(A2) 
TSTLINE 
DCLEXIT 
#BUSY,(A2) 


j SAVE BUSY FLAG 
;DISABLE INTS 

5 ASSUME LINE IS BUSY = TRUE 
;TEST LINE & INVERTED FLAG 
;IS BUSY 


j if wasn’t Busy before then start up transmission process 


BTST 

BEQ.5 

BSR 


#BUSY,D1 

DCLEXIT 

STRTXMIT 


,TEST SAVED BUSY STATE 
;WASN’T BUSY 

;START XMIT IF BUFFER NOT EMPT 


DCLEXIT 
, RTE 


MOVEM.L 


(SF‘) +, D0-A6 


SEXIT-RESTORE REGISTERS 


; CfP 


c 


INITDCC 
, MOVE.B 
, BCHS 
,MOVE. B 


, RTS 


stop interrupt if unknown Apples slot device is i nterrupt i ng. 
ASSUMES 2 DDR -for Port. A is untampered and set at $S0 
Exit : (DO) = Port A with IOX toggled 
(AO) = address at Port A 

LEA IMHIRA. L, AO 

(AO),DO. ;READ PORTA W/Q HANDSHAKE 

#7,DO ;TOGGLE IOX 

DO,(AO) ;WRITE OUT CHANGED IOX 


; CALLIDCC - Call INITDCC when driver unmounted and get a DataCom Control 
; interrupt. Toggles IOX to clear level i interrupt. 


CALLIDCC 
, BSR. S 
,MOVEM.L 
, RTE 
; £*P 


MOVEM.L DO/AO,—(SP) ;SAVE REGS USED BY INITDCC 

INITDCC 

(SP)+,DO/AO ;RESTORE REGS 


; FINDLIN 


FINDLIN 
DING TO 

*' , MOVEQ 

* 

Jl 

; Assumes 


- Find which Line is used tor Handshaking in Port A 
ENTRY : (Al) = address ot F'TRFLAGS+1 

EXIT : (D3) = Bit # in Port A specitying line used tor Busy 

MOVEQ #i,D3 5 BIT NUMBER IN PORT A CORRESPON 

#CTSLIN,D4 5 FLAG BIT NUMBER 

that it will always tind a line tlag set 


FLNLOOK 
, BNE.S 


( . ADDQ.B 
, ADDQ.B 
,CMPI.B 
, BNE. S 


BTST D4,(Al) 

FLNGOT 
#2, D3 
# 1, D4 

#DCDLIN+i,D4 

FLNLOOK 


;IS BIT SET? 

?YE3, D3 PORT A BIT FOR DC 0 

; TRY NEXT BIT FLAG 
;DID LAST FLAG 

;no 


j it (DataCom tlag is set) then bit# 
bit up 


FLNGOT 
,BEQ.S 
,ADDQ.B 
FLNEXIT 


BTST ttDATACOM,(Al) 

FLNEXIT 
# 1, D3 
RTS 


:= bit# + 1 


DC 1 bits in Port A are next 


j TSTLINE - test Port A line used tor Busy and the inverted tlag to show it 
; Busy or NOT Busy. 

5 ENTRY : (Al) = address ot PTRFLAGS+1 

; (DO) = Port A 

; (D3) = bit number in Port A ot Line used by Busy 

; EXIT : (NE) = Busy 

; (EQ) = NOT Busy 


TSTLINE 
, SNE 
, BTST 
, SNE 
,, EOR.B 
, RTS 


BTST D3,DO 

D4 

#INVBUSY,(Al) 

D5 

D4,D5 


;Create Line Boolean 
5 Create Inverted Boolean 
5 IF RESULT IS $FF THEN BUSY 


; £$P 

; ****************************************************************** ******************* 
********** *•*•*■** *-**•*•* 





variab1es 


Initialise UART from Printer Control Table. 


COMCLR 

BSR 

DISINTS 


BSR 

INIWRBF 

s 

BSR 

INIRDBF 

BSR 

3ETUART 


^ BSR 
i RTS 

ENBINTS 



;DISABLE INTERRUPTS 

SINIT BUFFER & CONTROL VARIABLE 

SINIT BUFFER & CONTROL VARIABLE 

SINIT UART FROM CONSTANTS & TABLE 
;ENABLE INTERRUPTS 


;******************************************************************************* 


****************** 


; C0MB3Y -- UNITBUSY 

; PASCAL BOOLEAN TRUE RETURNED IN. DO IF THERE ARE ANY CHARACTERS IN RE 

AD BUFFER 
ji 

COMBSY 

LEA RB__FLG2+i , AO 

BTST #EMPT_R2,(AO) 

SEQ DO ;IF BIT NOT SET THEN = 0; CHARA 

CTRERS EXIST DO =111111 

ANDI.B #TRUE,DO ;CONVERT FROM BOOLEAN TO PASCAL 

BOOLEAN- 

RTS 

s c*P 

;******************************************************************************* 
******************* 


5 

5 COMUNMT - UNITUNMOUNT 

; Turnoff interrupt capabilities of COMM driver S< current DataCom 


COMUNMT 


, BSR 
, MOVE. B 


BSR DISINTS 

GETBASE 

#TURNQFF,CMDREGI(AO) 


;DISABLE INTERRUPTS 

5 GET UART BASE 
;TURNOFF UART 


JI 

5 have vectors point to a RTe instruction 
5 


, LEA 
, MOVE. L 
, LEA 

, BTST 
,BEQ.S 
, LEA 
PUNUSEO 
R 

5 

5 Restore 


CALLIDCC,AO 
AO,VEC1.W 
VEC4.W,A1 

LEA BF_PR0F+1,A2 

ttDATACQM,(A2) 

PUNUSEO 
VEC2.W,Ai 

MOVE.L AO,(Al) 


Interrupts 


SHAVE DATA COM CONTROL INT 
5 RESET IOX TO CLEAR THE INT 
5 ASSUME DCO (VECTOR 4) 

SIS IT DCO 
5 YES 

S DCi IS VECTOR 2 

; F'TR TO RTE IN CURRENT DC VECTO 


•I 

T ,BSR ENBINTS 

, RTS 
5 C$P 

S******************************************************************************* 
******************** 



COMST ~ UNITSTATUS 

call the Table change or buffer free Functions 


COMST 
, BHI. S 
, MOVE. W 
, LEA 


CMPI.W #TBL3TATE,D2 5 VALID FUNCTION CODE 

PSTERR 5 NO 

(A3),DO 5 GET PARAMETER 

PSTTBL,Al 5 TURN THE FUNCTION CODE INTO 




JMP 


0 < A1,D2.W) 


5 DO FUNCTION 


5 Invalid Function Code Error 


PSTERR MOVE.W #INVFNC,D7 

, RTS 


THE COM DRIVER STATUS JUMP TABLE 


PSTTBL 


, DATA .W 
,DATA.W 
,DATA. W 
,DATA.W 


K 


DATA. W STWBUF-F'STTBL 

DATA.W STRBUF-F'STTBL 

DATA.W STBAUD-PSTTBL 

STPRITY-PSTTBL 
STDT ACQM-PSTTBL 
STWRDS2-PSTTBL 
STHNDSK—PSTTBL 
DATA.W 3TWRHI-PSTTBL 

DAT A.W STWRLQ-PSTTBL 

DATA.W STRDHI-PSTTBL 

DATA. W STRDLO-F'STTBL 

DATA. W STRDSTS-F'STTBL 

DATA.W STWTSTS-P3TTBL 

DATA.W STALCTL—PSTTBL 

DATA.W STBFCTL-PSTTBL 

DATA.W STWTCTL-PSTTBL 

DATA.W STRDCTL-PSTTBL 

DATA.W STOUTRD-PSTTBL 

DATA.W STINRD—PSTTBL 

DATA.W 3T0UTWT—PSTTBL 

DATA.W STINWT—PSTTBL 

DATA.W BWBCHR-F'STTBL 

DATA.W BRBCHR-PSTTBL 


5 


;WRITE BUFFER FREE SPACE 
;READ BUFFER FREE SPACE 
;SET BAUD RATE 

5 SET PARITY 
;SET DATA COM 
5 SET WORD SIZE 
;8ET HANDSHAKE METHOD 

5SET WRITE BUFFER HI WATER MARh 
5 SET WRITE BUFFER LOW WATER MAF 

;SET READ BUFFER HI WATER MARK 
;SET READ BUFFER LOW WATER MART 
jTELL READ STATUS 
j TELL WRITE STATUS 
j TELL STATE ALL CONTROL BUFFER'S 
5 TELL BUFFER CONTROL BUFFER 
5 TELL WRITE CONTROL BUFFER 
j TELL READ CONTROL BUFFER 
;TURN OFF OUTBOARD READ 
;TURN OFF INBOARD READ 
;TURN OFF OUTBOARD WRITE 
;TURN OFF INBOARD WRITE 
;TELL #CHARS IN WRITE BUFFER 
5 TELL #CHARS IN READ BUFFER 


j STWBUF - Return to the user the Free space in the write buffer 
5 

STWBUF 

BSR DISINT3 5 DISABLE INTERRUPTS 



LEA 

WB_FREE,A1 


MOVE.W 

(Ai),(A3) 

, BSR 

ENBINTS 


j RTS 



; 3TRBUF 
• 

- Return to 

the user the 

J 

STRBUF 

BSR 

DISINTS 


LEA 

RB__FREE, Al 


MOVE.W 

(Al),(A3) 


BSR 

ENBINTS 


RTS 


5 




; STBAUD - Set the Baud Rate 


;WRITE BUFFER FREE SPACE 
5 ENABLE INTERRUPTS 

space in the READ buffer 

;DISABLE INTERRUPTS 

5 WRITE BUFFER FREE SPACE 
5 ENABLE INTERRUPTS 


5 


( 


STBAUD 
,CMP I.W 
, BHI. S 


, LEA 
, BRA. S 


#MAXBAUD,DO 
SETERR 


LEA BF_RDBD,AO 

BAUDCNV,A1 

SAVPARM 


5 IS IT A VALID PARAMETER 
; NO 


5 WHERE TO PUT VALUE 
5 CONVERSION ARRAY 
5SAVE CONVERTED PARAMETER 


STPRITV 
jCMPI.W 
,BHI.S 


ttMAXF'RTY, DO 
SETERR 


;IS IT A VALID PARAMETER 
5 NO 


, LEA 
BRA. 3 

STWRDSZ 

5 

STWRDSZ 
,CMPI.W 
,BHI.S 


,MOVE.B 
,BRA.S 


LEA BF_PART,AO 

PRTYCNV,Al 

SAVPARM 


5 WHERE TO PUT VALUE 
;CONVERSION ARRAY 
j SAVE CONVERTED PARAMETER 


Set the word size to transmit (7 or S) 


#MAXWRDS,DO 
SETERR 

LEA 

DO,(AO) 
RSTUART 


BF_WRDS,AO 


; IS IT A VALID PARAMETER 
i NO 

5 WHERE TO PUT VALUE 
! PUT IN WORD SIZE VALUE 
i RESET UART FROM TABLE 


; common code to STBAUDR, STPRITY, STWRDSZ, STDTACOM, & STHNDSK 


SAVPARM 

RSTUART 
RSTUART1 
, BSR 
, RTS 


MOVE.B 

BSR 

BSR 

ENBINTS 


0(Ai,DO.W),(AO) 

DI3INTS 

SETUART 


;SAVE CONVERTED PARAMETER 

$ DISABLE INTERRUPTS 
;SETUP UART FROM TABLE 
SENABLE INTERRUPTS 


; Invalid Parameter error 

« 

$ 

SETERR MOVE.W #INVPRM,D7 

, RTS 
5 C$P 

-i STDTACOM 
5 

STDTACOM 
,CMPI.W 


Change the DataCom being used. Either DataCom 0 or i 


#MAXDTCM,DO 
SETERR 


,BHI.S 
j change Table Flags 


, BSET 
,TST.B 
,BNE.S 
, BCLR 


LEA BF_F‘ROF+l, AO 

#DATACOM,(AO) 

DO 

SDCCNGV 
#DATACOM,(AO) 


;IS IT A VALID PARAMETER 
;NO 


;FLAGS 

$ ASSUME PARAMETERS 

,- IS DC 1, CHANGE VECTORS 


5 Change interrupt vectors. The old vector point at a RTE instruction. 


SDCCNGV 
, BSR 
,BRA.S 


BSR 

SETDCVEC 

RSTUART! 


DISINTS 


;DISABLE INTERRUPTS 
;SET VECTORS 


; STHNDSK - Set Handshake type. Convert parameter into the flags and put these 
5 flag values into the Printer Control Table. Don’t need to reset 

^; UART. 

C 

STHNDSK 

,CMPI.W #MAXHNDS,DO ;IS IT A VALID PARAMETER 

,BHI.S SETERR 5 NO 

? 

, LEA 


HND3CNV,Al 


; CONVERSION ARRAY 








, MOVE. B 
, ANDI.B 
, OR.B 
, MOVE. B 
, RTS 
; C*P 


c 


J* 

;STWRHI 
STWRHI 


(AO),D2 
#DCMFLGM,D2 
D1D2 
D2, (AO) 


j GET FLAG BYTE 

>REMOVE CURRENT HANDSHAKE FLAGS 
5 PUT IN NEW FLAGS 
;RESTORE FLAGS 


•-SET THE WRITE BUFFER HIGH WATER MARK 

LEA WB_HIWA,A1 

MOVE. W (A3), (AD 

RTS 


;STWRLO -SET THE WRITE BUFFER LOW WATER MARK 
STWRLO 

LEA WB_LOWA,Al 

MOVE. W (A3), (AD 

RTS 


;STRDHI -SET THE READ BUFFER HIGH WATER MARK 
STRDHI 

LEA RB_HIWA,A1 

MOVE. W (A3 > , (AD 

RTS 


;STRDLO 
STRDLO 



-SET THE READ BUFFER LOW WATER MARK 

LEA RB_LOWA,Al 

MOVE. W (A3), (AD 

RTS 


j STRDSTS -GET THE READ BUFFER STATUS 
STRDSTS 

RTS 


9 

5 STWTSTS -GET THE WRITE BUFFER STATUS 
STWTSTS 

RTS 


; -c$p 

5 

;STALCTL -RETURN TO USER ALL CONTROL BUFFER VALUES 
STALCTL 


BSR 

STBFCTL 

BSR 

STWTCTL 

BSR 

3TRDCTL 

RTS 



;STBFCTL -RETURN TO 
STBFCTL 



BSR 

RTS 


5 STWTCTL -RETURN TO 
3TWTCTL 


USER ALL BUFFER CONTROL BUFFER VALUES 
3TTBLST 


USER ALL WRITE CONTROL BUFFER VALUES 


RTS 







RTS 

; STTBLST - Return to the user in the parameter block the state o-f the Buf-fer Co 
ntrol Table. 


F'arameterBlock 


STTBLST 

ER 


CLR.L 


SET BAUD RATE 


MOVE.W 
MOVE.B 
LEA 
BSR.S 


record 


EfaudRate 


integer; 

;{range = 0..6> 

Parity 

m 

integer; 

;{range = 0..4> 

DataCom 

n 

9ft 

integer; 

;{range = 0..11 

WordSi ze 


integer; 

; {range = 0..13- 

HandShake 


integer; 

; {range = 0..7> 


end; 


Di 


#MAXBAUD,DO 
BF_RDBD,Dl 
BAUDCNV,AO 
GETVAL 


;MAKE SURE NO GARBAGE IN REGIST 


5MAX BAUD RATE PARAMETER VALUE 
;CURRENT TABLE VALUE 
;CONVERT TO INTEGER RANGE 


J GET PARITY 
5 

MOVE.W 
LEA 

MOVE.B 

LEA 

BSR.S 


GET DATACOM 

MOVE.B 
LSR.B 
MOVE. W 


jS IN IT 
GER 


aft 

9 

5 GET WORD SIZE 
* 

MOVE.B 
MOVE.W 

J 

5 GET HANDSHAKE 

j 

MOVE.W 
MOVE.B 
BCLR 
LEA 


#MAXPRTY,DO 
BF_PART,AO 
(AO),Dl 
PRTYCNV,AO 
GETVAL 


BF_PRQF+i,Dl 
#7, Dl 
Di,(A3)+ 


BF_WRDS,Dl 
Dl,(A3)+ 


#MAXHNDS,DO 
BF_PROF+l,Dl 
#DATACOM,Dl 
HNDSCNV,AO 


;MAX PARITY PARAMETER VALUE 

;CURRENT TABLE VALUE 

;CONVERT TO INTEGER RANGE 


j GET FLAG BYTE WITH DATACOM FLA 
;TURN FLAG INTO A 0 OR A 1 INTE 


jMAX HANDSHAKE PARAMETER VALUE 
5 CURRENT TABLE VALUE 
5 REMOVE DATACOM FLAG 
;CONVERT TO INTEGER RANGE 


I GET PARAMETER VALUE AN PUT IN PARAMETER BLOCK 


GETVAL CMP.B 0(AO,DO.W),Dl 

URRENT VALUE 

DBEQ DO,GETVAL 

METER VALUE TO 


OCK 

C ; c$p 

; STOUTRD 
STOUTRD 


MOVE.W DO,(A3)+ 

RTS 


— STOP OUTBOARD READING 


5 SEE WHICH CONVERSION VALUE * C 
5 THE INDEX OF ONE = IS THE PARA 
jRETURN TO USER IN PARAMETER BL 


RTS 







STINRD 


STOUTWT 


STOP OUTBOARD WRITING 


TGUTWT 


; STINWT 
STINWT 


STOP INBOARD WRITING 
RTS 


; -c$P 
5 

BWBCHR 


FIND # CHARS IN WRITE BUFFER 



LEA 

WB_SIZE,A1 


LEA 

WB_FREE,A2 


MOVE. W 

(Al),Di 


SUB. W 

<A2>,Dl 


MOVE.W 

D1, DO 

s 




RTS 


J 

BRBCHR 

LEA 

RB_SIZE,Al 


LEA 

RB_FREE,A2 


MOVE.W 

(Al),Dl 


SUB. W 

(A2),Dl 


MOVE. W 

D1, DO 

S 

RTS 


; c$P 



$ constant 

data area 


*1 

5 Conversion arrays 

-for Set -functions 

•I 

BAUDCNV 

DATA.B 

6,7,8,$A,$C,$E 

* 

600,8=1200 

,A=2400,C=4800,E— 

PRTYCNV 

DATA.B 

0, 1,3,5, 7 

; 0=DISABLED,1=ODD, 3 

m 

=EVEN,5=MARK XMIT 

!» 

HNDSCNV 

DATA.B 

$49 

,DATA.B 

$09 


,DATA.B 

$51 


,DATA.B 

$11 


,DATA.B 

$61 


,DATA.B 

$21 


,DATA.B 

$02 


,DATA.B 

$04 



DATA.B 

$00 

— — — <— — 



5 DEFAULT 

5 

BUFFER Control Table 

•1 

,DATA.B 

0 


DEFBWRT 

DATA.B 

$0E 

DEFBRD 

DATA.B 

$0E 

DEFPART 

DATA.B 

0 

DEFWRDS 

DATA.B 

0 

DEFINTRN 

DATA. W 

*1 


jSIZE IN Di 

; SIZE -FREE =# CHARS 

; IF 0 THEN 0 ELSE NUMB OF CHAI 


FIND # CHARS IN READ BUFFGER 


;SIZE IN Dl 

5 SIZE -FREE =# CHARS 

5 IF 0 THEN 0 ELSE NUMB OF CHAI 


j BAUD RATE 


;PARITY 


;line/cts/inv 

;LINE/CTS/NQT INV 
j LINE/DSR/INV 
;LINE/DSR/NOT INV 
;LINE/DCD/INV 
5LINE/DCD/NOT INV 
;XON/XQFF 
;ENQ/ACK 

5 NONE OF THE ABOVE PROTOCOLS 


; FILL 


5 WRITE BAUD RATE-9600 
;READ BAUD RATE 
;PARITY-DISABLED 
5 WORD SIZE = S BITS (1=7 BITS) 
jINTERNAL FLAG—SAVED ENTRY SR 







EANS 

?.£$P 

? 

» t I i i I i I I I ! I ! I I i I I I I I 1 I i I 

«l » 1 » I 1 » » » » I I I I I I » I I I * ! I I » 

I I I I I I I I I I I I I 

€ 1 I t I t t t I I I I I I 

; Variable data area 
*» 

; BUFFER CONTROL TABLE 
5 

BFRCTL 

BFJdRBD DATA. B O 

BF_RDBD DATA.B 0 

BF_PART DATA.B O 

BF_WRDS DATA.B O 

BF_INTL DATA.W O 

BF_PROF DATA.W 0 

& DATACQM 


; NOTE BOTH BYTES USED UPPER 9 M 
; NO PROTOCOLS, FULL DUPLEX 


I I t I I I I I I I I I I I I I 1 I t I I t I I I I I I t I I I 

I t I I I I t t I I I I I ) l I t I I I t I I t f I t I t I I I 


;WRITE BAUD RATE 
;READ BAUD RATE 
; PARITY 
5WORD SIZE 
;INTERNAL FLAGS 

;PROTOCOL FLAGS-HANDSHAKE TYPE 


WRITE BUFFER CONTROL TABLE 


WRTCTL 


WB_FILLP 

DATA. L 

0 

WB EMPTY 

DAT A. L 

0 

WB_SIZE 

DATA.W 

0 

WB_FREE 

DATA. W 

0 

WB_HIWA 

DATA. W 

0 

RK 

WB_LOWA 

DATA.W 

0 

ARK 

WB_FLGi 

DATA.W 

0 

WB FLG2 

DATA.W 

0 


; READ BUFFER CONTROL TABLE 

9 

RDCTL 

RB_FILLP DATA.L O 

RB_EMPTY DATA.L 0 

RB_SIZE DATA.W 0 

RB_FREE DATA.W 0 

RB_HIWA DATA.W O 

RK 

RB„LOWA DATA.W O 

ARK 

RB_BENQ DATA.W 0 

RB_FLGi DATA.W O 

RB FLG2 DATA.W 0 


; BUFFER FILL POINTER 
;BUFFER EMPTY POINTER 
jBUFFER SIZE 

5 AMOUNT OF BUFFER FREE SPACE 
5 NUMBER OF BYTES IN HI WATER MA 

5 NUMBER OF BYTES IN LOW WATER I* 

5 FLAG WORD i 
j FLAG WORD 2 


;BUFFER FILL POINTER 
;BUFFER EMPTY POINTER 
;BUFFER SIZE 

5 AMOUNT OF BUFFER FREE SPACE 
; NUMBER OF BYTES IN HI WATER MA 

;NUMBER OF BYTES IN LOW WATER f 

;NUMBER OF BYTES BETWEEN ENQ’S 
; FLAG WORD i 
; FLAG WORD 2 


; save areas for current SR 
j» 

SAVESRi DATA.W O 



; The Com Driver Read Buffer - 2k bytes 
RDBUF 

; 64 
; 128 


DATA. L 
DATA.L 


O, O, O, 0,0,0, O, 0, O, O, 0,0,0, O, 0,0 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 








RBFL.EN 


WRTBUF 

i 

WBFLEN 


EQU ' 7.-RDBUF 


;READ BUFFER LENGTH 


-WRITE BUFFER 


DATA. L 0,0,0,0,0,0,0,0,0,0,0,0, O, 0, 0,0 ; 64 

DATA.L 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ;128 

DATA. L 0,0, 0, 0,0, 0, 0, 0, O, O, 0, 0, O, 0, 0, 0 j 

DAT A.L 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ;256 


EQU 7.-WRTBUF ; READ BUFFER LENGTH 


END 


COMDRV 







